home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / usefull / mui-rechnung / installation < prev    next >
Text File  |  1996-02-26  |  8KB  |  445 lines
  1. ;
  2. ; Installations-Skript für das komplette Rechnungsprogramm.
  3. ;
  4.  
  5.  
  6. ; Die Routine im Fehlerfall
  7.  
  8. (onerror
  9.     (makeassign "MUI-Rechnung" (safe))
  10. )
  11.  
  12. (complete 0)
  13.  
  14. ; Falls die Installation erneut gestartet wird
  15.  
  16. (makeassign "MUI-Rechnung" (safe))    ; neu starten ohne Assigns
  17.  
  18. ;
  19. ; 1. Teil
  20. ;
  21. ; Installation von 'Rechnung' mit allen dazugehörigen Dateien
  22. ;
  23.  
  24. (set Rechnung_dest            ; Variable für den Pfad
  25.     (tackon
  26.         (askdir
  27.             (prompt "In welchem Verzeichnis soll ein Verzeichnis \"MUI-Rechnung\" "
  28.                     "angelegt werden und das Programm MUI-Rechnung installiert "
  29.                  "werden?")
  30.             (help @askdir-help)
  31.             (default @default-dest)
  32.         )
  33.         "MUI-Rechnung"
  34.     )
  35. )
  36.  
  37. (makedir Rechnung_dest (infos))
  38.  
  39. ; für den Installer noch das endgültige Verzeichnis mitteilen
  40.  
  41. (set @default-dest Rechnung_dest)
  42.  
  43. ; Teste nach, ob es sich um OS2.x oder OS3.x handelt
  44.  
  45. (set vernum (getversion "exec.library" (resident)))
  46. (set ver (/ vernum 65536))
  47.  
  48. (if (>= ver 39)
  49.     (set This_dest (tackon "libs:" "Gadgets"))
  50.     (set This_dest (tackon Rechnung_dest "Gadgets"))
  51. )
  52.  
  53. ; Kopiere das Gadget
  54.  
  55. (copylib
  56.     (prompt "Kopiere das Textfield.gadget.")
  57.     (help @copylib-help)
  58.     (source "Gadgets/textfield.gadget")
  59.     (dest This_dest)
  60.     (infos)
  61.     (confirm)
  62. )
  63.  
  64.  
  65. ; Kopiere die Files...
  66.  
  67. (copylib
  68.     (prompt "Kopiere das Programm \"MUI-Rechnung\".")
  69.     (help @copylib-help)
  70.     (source "MUI-Rechnung")
  71.     (dest Rechnung_dest)
  72.     (infos)
  73.     (confirm)
  74. )
  75.  
  76. ;
  77. ; zusätzlich für ACC Briefe
  78. ;
  79.  
  80. (copylib
  81.     (prompt "Kopiere das Startprogramm \"Briefe\".")
  82.     (help @copylib-help)
  83.     (source "Briefe")
  84.     (dest Rechnung_dest)
  85.     (infos)
  86.     (confirm)
  87. )
  88.  
  89.  
  90. (complete 15)
  91.  
  92. (copylib
  93.     (prompt "Kopiere die Online-Hilfe für \"MUI-Rechnung\".")
  94.     (help @copylib-help)
  95.     (source "MUI-Rechnung.guide")
  96.     (dest Rechnung_dest)
  97.     (infos)
  98.     (confirm)
  99. )
  100.  
  101. (complete 25)
  102.  
  103. (if (= (exists (tackon Rechnung_dest "Konfiguration.dat") ) 0)
  104.     (copyfiles
  105.         (prompt "Kopiere Default-Konfiguration.")
  106.         (help @copyfiles-help)
  107.         (source "Konfiguration.dat")
  108.         (dest Rechnung_dest)
  109.         (confirm)
  110.     )
  111. )
  112.  
  113. (if (= (exists (tackon Rechnung_dest "Kundenkategorien.dat") ) 0)
  114.     (copyfiles
  115.         (prompt "Kopiere Kundenkategorien.")
  116.         (help @copyfiles-help)
  117.         (source "Kundenkategorien.dat")
  118.         (dest Rechnung_dest)
  119.         (confirm)
  120.     )
  121. )
  122.  
  123. (if (= (exists (tackon Rechnung_dest "Artikelkategorien.dat") ) 0)
  124.     (copyfiles
  125.         (prompt "Kopiere Artikelkategorien.")
  126.         (help @copyfiles-help)
  127.         (source "Artikelkategorien.dat")
  128.         (dest Rechnung_dest)
  129.         (confirm)
  130.     )
  131. )
  132.  
  133. (if (= (exists (tackon "" "MUI-Rechnung.user") ) 1)
  134.     (copyfiles
  135.         (prompt "Kopiere Konfigurationsdatei.")
  136.         (help @copyfiles-help)
  137.         (source "MUI-Rechnung.user")
  138.         (dest Rechnung_dest)
  139.         (confirm)
  140.     )
  141. )
  142.  
  143. (complete 30)
  144.  
  145.  
  146. (set This_dest
  147.     (tackon
  148.         Rechnung_dest
  149.         "TeXwork"
  150.     )
  151. )
  152. (if (= (exists (tackon This_dest "invoice.tex") ) 1)
  153.     (delete (tackon This_dest "invoice.tex")
  154.         (prompt "Lösche altes TeX-Format.")
  155.         (help @delete-help)
  156.         (optional "force")
  157.     )
  158. )
  159.  
  160. (copyfiles
  161.     (prompt "Kopiere TeX-Files.")
  162.     (help @copyfiles-help)
  163.     (source "TeXwork")
  164.     (choices "invoicepatch.tex" "ecma94.tex" "german.sty" "checkprt.dvi" "invoicemacro.tex" "listmacro.tex" "labelmacro.tex" "ShowDVI.rexx")
  165.     (dest This_dest)
  166.     (confirm)
  167. )
  168.  
  169. (complete 35)
  170.  
  171. ;
  172. ; 2. Teil
  173. ;
  174. ; Installation von TeX
  175. ;
  176.  
  177. (set is_TeX_update 0)
  178. (set TeX_dest (getassign "TeX" "a"))
  179.  
  180. ; Wenn es ein Update ist, dann wahrscheinlich im alten Pfad installieren
  181.  
  182. (if TeX_dest
  183.     (if (askbool
  184.             (prompt "Ihre aktuelle Version von TeX befindet sich vermutlich im Verzeichnis \""
  185.                     TeX_dest
  186.                     "\". Wollen Sie TeX in dieses Verzeichnis installieren (siehe hierzu unbedingt 'Help...'!) ?")
  187.             (help
  188.                 "Das Installationsprogramm hat erkannt, daß Sie evtl. bereits eine "
  189.                 "Version von TeX auf Ihrem System installiert haben.\n\n"
  190.                 "Falls Sie TeX nur in Verbindung mit der MUI-Rechnung verwenden, wählen Sie "
  191.                 "JA, um die Installation im bisherigen Verzeichnis fortzuführen.\n\n"
  192.                 "Falls Sie TeX auch anderweitig verwenden ist es nicht ratsam, die Installation in "
  193.                 "das gleiche Verzeichnis durchführen zu lassen. Wählen Sie zuerst NEIN und "
  194.                 "geben Sie ein anderes Verzeichnis an, um vorübergehend das mitgelieferte "
  195.                 "TeX zu verwenden.\n\n"
  196.                 "Wenn Sie TeX auch anderweitig verwenden, können Sie die Installation auch "
  197.                 "an dieser Stelle abbrechen.\n\n"
  198.                 "Bei Problemen mit TeX hilft Ihnen der Autor von MUI-Rechnung gerne weiter."
  199.             )
  200.             (default 1)
  201.         )
  202.  
  203.         (set is_TeX_update 1)
  204.     )
  205. )
  206.  
  207. ; Falls es kein Update ist, den gewünschten Pfad erfragen.
  208.  
  209. (if (NOT is_TeX_update)
  210.     (set TeX_dest
  211.         (tackon
  212.             (askdir
  213.                 (prompt "In welchem Verzeichnis soll ein Verzeichnis \"TeX\" angelegt "
  214.                         "und TeX installiert werden?")
  215.                 (help @askdir-help)
  216.                 (default @default-dest)
  217.             )
  218.             "TeX"
  219.         )
  220.     )
  221. )
  222.  
  223. ; Erzeuge Schublade mit Icon, falls sie noch nicht vorhanden ist.
  224.  
  225. (if (NOT is_TeX_update)
  226.     (makedir TeX_dest (infos))
  227. )
  228.  
  229. ;
  230. ; altes File evtl. loeschen
  231. ;
  232.  
  233. (if is_TeX_update
  234.     ;
  235.     ; altes Formatfile loeschen
  236.     ;
  237.     (if (= (exists (tackon TeX_dest "formats/invoice.fmt") ) 1)
  238.         (delete (tackon TeX_dest "formats/invoice.fmt")
  239.             (prompt "Lösche altes TeX-Format.")
  240.             (help @delete-help)
  241.             (optional "force")
  242.         )
  243.     )
  244.  
  245.     ;
  246.     ; alte TeX-Files loeschen
  247.     ;
  248.     (if (= (exists (tackon TeX_dest "invoice.tex") ) 1)
  249.         (delete (tackon TeX_dest "invoice.tex")
  250.             (prompt "Lösche altes TeX-Format.")
  251.             (help @delete-help)
  252.             (optional "force")
  253.         )
  254.     )
  255.     (if (= (exists (tackon TeX_dest "invoicepatch.tex") ) 1)
  256.         (delete (tackon TeX_dest "invoicepatch.tex")
  257.             (prompt "Lösche altes TeX-Format.")
  258.             (help @delete-help)
  259.             (optional "force")
  260.         )
  261.     )
  262.     (if (= (exists (tackon TeX_dest "checkprt.dvi") ) 1)
  263.         (delete (tackon TeX_dest "checkprt.dvi")
  264.             (prompt "Lösche altes TeX-Format.")
  265.             (help @delete-help)
  266.             (optional "force")
  267.         )
  268.     )
  269. )
  270.  
  271. (makeassign "TeX" TeX_dest)
  272.  
  273. ; Bin-Dateien sind noch auf der ersten Diskette
  274.  
  275. (set This_dest
  276.     (tackon
  277.         TeX_dest
  278.         "bin"
  279.     )
  280. )
  281. (copyfiles
  282.     (prompt "Kopiere ausführbare Programme für TeX.")
  283.     (help @copyfiles-help)
  284.     (source "TeX/bin")
  285.     (dest This_dest)
  286.     (confirm)
  287.     (all)
  288. )
  289.  
  290. (complete 50)
  291.  
  292. ;
  293. ; Formatfile fuer TeX
  294. ;
  295.  
  296. (set This_dest
  297.     (tackon
  298.         TeX_dest
  299.         "formats"
  300.     )
  301. )
  302.  
  303. ;
  304. ; altes File evtl. loeschen
  305. ;
  306.  
  307. (if (= (exists (tackon This_dest "invoice.fmt") ) 1)
  308.     (delete (tackon This_dest "invoice.fmt")
  309.         (prompt "Lösche altes TeX-Format.")
  310.         (help @delete-help)
  311.         (optional "force")
  312.     )
  313. )
  314.  
  315. ;
  316. ; nur noch das Plain.fmt kopieren
  317. ;
  318.  
  319. (copyfiles
  320.     (prompt "Kopiere Formatdatei für TeX.")
  321.     (help @copyfiles-help)
  322.     (source "TeX/formats")
  323.     (dest This_dest)
  324.     (all)
  325. )
  326.  
  327. (complete 75)
  328.  
  329. (set This_dest
  330.     (tackon
  331.         TeX_dest
  332.         "config"
  333.     )
  334. )
  335. (copyfiles
  336.     (prompt "Kopiere Konfiguration für TeX.")
  337.     (help @copyfiles-help)
  338.     (source "TeX/config")
  339.     (dest This_dest)
  340.     (all)
  341. )
  342.  
  343. (complete 78)
  344.  
  345. (set This_dest
  346.     (tackon
  347.         TeX_dest
  348.         "rexx"
  349.     )
  350. )
  351. (copyfiles
  352.     (prompt "Kopiere ARexx Dateien für TeX.")
  353.     (help @copyfiles-help)
  354.     (source "TeX/rexx")
  355.     (dest This_dest)
  356.     (all)
  357. )
  358.  
  359. (complete 80)
  360.  
  361. (set This_dest
  362.     (tackon
  363.         TeX_dest
  364.         "fonts"
  365.     )
  366. )
  367. (copyfiles
  368.     (prompt "Kopiere Fonts für TeX.")
  369.     (help @copyfiles-help)
  370.     (source "TeX/fonts")
  371.     (dest This_dest)
  372.     (all)
  373. )
  374.  
  375. (complete 85)
  376.  
  377. (set This_dest
  378.     (tackon
  379.         TeX_dest
  380.         "pk"
  381.     )
  382. )
  383. (copyfiles
  384.     (prompt "Kopiere Fonts für TeX.")
  385.     (help @copyfiles-help)
  386.     (source "TeX/pk")
  387.     (dest This_dest)
  388.     (optional "nofail")
  389.     (all)
  390. )
  391.  
  392. (complete 90)
  393.  
  394. (set This_dest
  395.     (tackon
  396.         TeX_dest
  397.         "pool"
  398.     )
  399. )
  400. (copyfiles
  401.     (prompt "Kopiere Pool für TeX.")
  402.     (help @copyfiles-help)
  403.     (source "TeX/pool")
  404.     (dest This_dest)
  405.     (all)
  406. )
  407.  
  408. (complete 95)
  409.  
  410. ; Ändere die S:User-Startup
  411.  
  412. (startup "TeX"
  413.     (prompt
  414.         "Es muß noch ein Befehl in die \"S:user-startup\" eingefügt "
  415.         "werden, damit Ihr System für TeX korrekt konfiguriert ist.")
  416.     (help "Diese Änderung MUSS vorgenommen werden, oder TeX wird "
  417.           "nicht funktionieren!")
  418.    (command
  419.         "ASSIGN TeX: \"" TeX_dest "\"\n"
  420.     )
  421. )
  422.  
  423. ; Alle Assigns wieder initialisieren
  424.  
  425. (if (not @pretend)
  426.     (makeassign "TeX" TeX_dest)
  427. )
  428.  
  429. (complete 100)
  430.  
  431.     ; cleanup
  432.  
  433. (message
  434.    "Bitte stellen Sie nach der Installation die Grundeinstellungen im Programm \"MUI-Rechnung\" nach "
  435.    "Ihren Bedürfnissen ein. Danach kann mit \"MUI-Rechnung\" gearbeitet werden. "
  436.    "Mit dem Programm \"MUI\" können Sie die Oberfläche der MUI-Rechnung nach Ihren "
  437.    "Wünschen einstellen (eigener Screen, Fonts, MagicWB-look, ...)."
  438. )
  439.  
  440. (makeassign "MUI-Rechnung" (safe))
  441.  
  442.     ; this is not strictly necessary, but doesn't hurt -- there is always
  443.     ; a default (exit) at the end of any script
  444. (exit)
  445.